home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / src / ggt.lha / ggT / schlangentest.adb < prev    next >
Encoding:
Text File  |  2002-02-13  |  971 b   |  53 lines
  1. -- Schlangentest
  2. -- Norman Walter
  3. -- Datum: 2.2.2002
  4.  
  5. -- Testprogramm für das generische Schlangenpaket (FIFO)
  6.  
  7. with text_io,ada.integer_text_io;
  8. use  text_io,ada.integer_text_io;
  9.  
  10. with schlangenpaket;
  11.  
  12. procedure schlangentest is
  13.  
  14.    -- Der konkrete Datentyp für unsere Schlange sei Integer
  15.    package int_schlange is new schlangenpaket(integer);
  16.    use int_schlange;
  17.  
  18.    fifo_info: schlangen_infos;
  19.    eintrag: integer;
  20.  
  21. begin
  22.  
  23.    put("Lege den Wert 2 auf den Stack");
  24.    new_line;
  25.    push(fifo_info,2);
  26.  
  27.    put("Lege den Wert 3 auf den Stack");
  28.    new_line;
  29.    push(fifo_info,3);
  30.  
  31.    put("Lege den Wert 5 auf den Stack");
  32.    new_line;
  33.    push(fifo_info,5);
  34.  
  35.    for i in 1..3 loop
  36.  
  37.      put("Nehme ersten Eintrag vom Stack ab");
  38.      new_line;
  39.      pop(fifo_info,eintrag);
  40.      put("Wert=");put(eintrag,0);
  41.      new_line;
  42.  
  43.    end loop;
  44.  
  45.    if schlange_leer(fifo_info) then
  46.       put("Stack ist leer");
  47.       new_line;
  48.    end if;
  49.  
  50.    put("Alles OK");
  51.  
  52. end schlangentest;
  53.